home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / BOSTON.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  160 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡  BOSTON BBS NUMBERS ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - BYTEnet listing      ║"
  39.    MESSAGE "                         ║  2 - Fido / PC Week       ║"
  40.    MESSAGE "                         ║  3 - Boston Computer Soc. ║"
  41.    MESSAGE "                         ║  4 - PC2 Tech Support     ║"
  42.    MESSAGE "                         ║  5 - Softline             ║"
  43.    MESSAGE "                         ║  6 - Byte Magazine        ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.    LOCATE 17,40
  54.    MESSAGE  " "
  55.    LOCATE 17,40
  56.    GET S5 1
  57.  
  58.    SWITCH S5
  59.  
  60.       CASE "1"
  61.          ASSIGN S3 "BYTEnet"
  62.          ASSIGN S4 "8619774"
  63.       ENDCASE
  64.  
  65.       CASE "2"
  66.          ASSIGN S3 "Fido / PC Week"
  67.          ASSIGN S4 "5361917"
  68.       ENDCASE
  69.  
  70.       CASE "3"
  71.          ASSIGN S3 "Boston Computer Society"
  72.          ASSIGN S4 "2373750"
  73.       ENDCASE
  74.  
  75.       CASE "4"
  76.          ASSIGN S3 "PC2 Tech Support"
  77.          ASSIGN S4 "7693779"
  78.       ENDCASE
  79.  
  80.       CASE "5"
  81.          ASSIGN S3 "SoftLine"
  82.          ASSIGN S4 "2544909"
  83.       ENDCASE
  84.  
  85.       CASE "6"
  86.          ASSIGN S3 "Byte Magazine"
  87.          ASSIGN S4 "8619764"
  88.       ENDCASE
  89.  
  90.       CASE "M"
  91.          CLEAR
  92.          LOCATE 5,20
  93.          MESSAGE "NUMBER TO DIAL:"
  94.          LOCATE 5,36
  95.          ASSIGN S3 "MANUAL DIAL"
  96.          GET S4
  97.       ENDCASE
  98.  
  99.       CASE "Q"
  100.          CLEAR
  101.          TRANSMIT "!@!"
  102.          WAITFOR "@"
  103.          TRANSMIT "D!"
  104.          WAITFOR "@"
  105.          CLEAR
  106.          LOCATE 1,0
  107.          PAUSE 1
  108.          EXECUTE "INTRO.CMD"
  109.       ENDCASE
  110.  
  111.       DEFAULT
  112.          MESSAGE "^G"
  113.          LOCATE 17,40
  114.          GOTO BEGIN
  115.       ENDCASE
  116.  
  117. ENDSWITCH
  118.       CLEAR
  119.       LOCATE 1,0
  120.       MESSAGE "CONNECTED TO PCP"
  121.       MESSAGE S1
  122.       MESSAGE "DIALING"
  123.       MESSAGE S3
  124.  
  125.  
  126.       TRANSMIT "ATZ!"
  127.       WAITFOR "OK" 10
  128.       TRANSMIT "ATDT"
  129.       TRANSMIT S4
  130.       TRANSMIT "!"
  131.       RGET S0
  132.       RGET S0 80 40
  133.       RGET S0
  134.       PAUSE 2
  135.  
  136.       FIND S0 "BUSY"
  137.       IF FOUND
  138.          CLEAR
  139.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  140.          PAUSE 2
  141.          CLEAR
  142.          LOCATE 1,0
  143.          GOTO BEGIN
  144.       ENDIF
  145.  
  146.       FIND S0 "CONNECT"
  147.       IF FOUND
  148.          SET PARITY NONE
  149.          SET DATABITS 8
  150.       ELSE
  151.          CLEAR
  152.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  153.          PAUSE 2
  154.          CLEAR
  155.          LOCATE 1,0
  156.          GOTO BEGIN
  157.       ENDIF
  158.  
  159.       ALARM 1
  160.       EXIT